INCLUDE (3)
START
 WAITTRIG
 WAITTRIG
 LOOP (100)
  IF   VAREQ? (1,V100)
  THEN
   ADDVAR (30,V1)
  ENDIF
  MOVE (0,30,0)
 AGAIN
 SOUND (3)
 WAITTRIG
 WAITTRIG
 LOOP (100)
  MOVE (0,-30,0)
 AGAIN
 SOUND (3)
RESTART